Collection of Tools & Utilities/Collection of Tools and Utilities.iso/bbsutil/dlx70bbs.zip/DLX70SRC.ZIP/GLOBALS.PAS

Pascal/Delphi Source File | 1994-02-28 | 6KB | 257 lines

{$debug-}
{$line-}

{$include: 'types.int'}
{$include: 'globals.int'}

IMPLEMENTATION OF globals;

{DLX Bulletin Board System V7.0

 FREEWARE NOTICE

 DLX V7.0 is placed in the public domain by its author, Richard Gillmann.
 Anyone who wishes to may run the program, copy it, or modify it for
 any purpose, including commercial gain.}

USES types;

value
  mailpath := 'MAILBOX\USR';
  biopath := 'BIOGS\BIO';
  lhc     := 0;
  lhc_max := 0;
  d_junk := '-JUNK';
  d_new := '-NEW';
  macro_depth := 0;
  fSmall := false;
  bumpct1 := 0;
  bumpct2 := 0;
  bumpct3 := 0;
  GotOrdr := 0;

{ctrl-C handlers}
value
  cc[top] := nada;
  cc[get_userid] := nada;
  cc[got_userid] := nada;
  cc[got_pw] := nada;
  cc[pitch] := nada;
  cc[pitch2] := nada;
  cc[enroll] := nada;
  cc[verify1] := nada;
  cc[verify2] := nada;
  cc[verify3] := nada;
  cc[verify4] := nada;
  cc[verify5] := nada;
  cc[verify6] := nada;
  cc[verify7] := nada;
  cc[questionnaire] := nadamm;
  cc[get_name] := nadamm;
  cc[get_city] := nadamm;
  cc[get_state] := nadamm;
  cc[correct1] := nadamm;
  cc[more_questions1] := nadamm;
  cc[get_gender] := nadamm;
  cc[get_pref] := nadamm;
  cc[get_age] := nadamm;
  cc[get_height] := nadamm;
  cc[get_weight] := nadamm;
  cc[correct2] := nadamm;
  cc[mult_ch1] := nadamm;
  cc[newpsize] := nadamm;
  cc[mult_ch1a] := nadamm;
  cc[mult_ch1b] := nadamm;
  cc[mult_ch2] := nadamm;
  cc[mult_ch3] := nadamm;
  cc[mult_ch4] := nadamm;
  cc[mult_ch5] := nadamm;
  cc[filing_it] := nadamm;
  cc[given_out] := nada;
  cc[get_new_pw] := nada;
  cc[new_pw] := nada;
  cc[verify_mail1] := nada;
  cc[verify_mail2] := nada;
  cc[verify_mail3] := nada;
  cc[greet_user] := nada;
  cc[news] := nada;
  cc[whoelse] := nada;
  cc[msgs_4u] := nada;
  cc[main_menu] := nada;
  cc[main_fork] := mm;
  cc[junk1] := mm;
  cc[junk2] := mm_kill;
  cc[junk3] := zot;
  cc[junk4] := mm_kill;
  cc[chat_menu] := mm;
  cc[chat_lounge] := mm;
  cc[chat] := cm;
  cc[gchat_ch1] := cm;
  cc[gchat_ch2] := cm;
  cc[gchat_menu] := cm;
  cc[gchat] := cm;
  cc[delete_user] := rs;
  cc[delete_user2] := rs;
  cc[undel_user] := mm;
  cc[undel_user2] := mm;
  cc[delete_old] := mm;
  cc[delete_old2] := mm;
  cc[delete_old3] := mm;
  cc[change_level] := rs;
  cc[change_level2] := rs;
  cc[change_mbx] := rs;
  cc[change_mbx2] := rs;
  cc[kill_line] := mm;
  cc[kill_line2] := mm;
  cc[recycle] := mm;
  cc[reset_time] := mm;
  cc[reset_time2] := mm;
  cc[unans1] := mm;
  cc[unans2] := mm;
  cc[down1] := mm;
  cc[answer] := mm;
  cc[answer2] := mm;
  cc[answer3] := mm;
  cc[answer4] := mm;
  cc[answer5] := mm;
  cc[browse_prompt] := rs_close;
  cc[browse] := rs_close;
  cc[browse_qs1] := rs_close;
  cc[browse_qs2] := rs_close;
  cc[browse_qs3] := rs_close;
  cc[browse_biogs] := rs_close;
  cc[goodbye_menu] := nada;
  cc[goodbye] := nada;
  cc[db1] := db;
  cc[db2] := db;
  cc[db3] := db;
  cc[db3a] := db;
  cc[db4] := db;
  cc[db4a] := db;
  cc[db5] := rs_close;
  cc[db6] := db;
  cc[db7] := db;
  cc[display_file] := rs_close;
  cc[libr_menu] := lm;
  cc[libr] := lm;
  cc[libr_nomenu] := rs;
  cc[libr1] := lm;
  cc[libr2] := lm;
  cc[libr3_menu] := lm3;
  cc[libr3] := nada;
  cc[libr3a_menu] := lm3;
  cc[libr3a] := nada;
  cc[libr_transfer] := lm3;
  cc[libr_xd] := nada;
  cc[libr_post_down] := lm3;
  cc[libr_au0] := lm3;
  cc[libr_au] := lm3;
  cc[libr_au_line] := rs_close;
  cc[libr_xu0] := lm3;
  cc[libr_xu] := nada;
  cc[libr_post_up] := lm3;
  cc[libr_post_up2] := lm3;
  cc[match] := mm;
  cc[match_param] := mm;
  cc[lowest_age] := mm;
  cc[highest_age] := mm;
  cc[last_called] := mm;
  cc[least_times] := mm;
  cc[what_gender] := mm;
  cc[what_pref] := mm;
  cc[match_line] := rs;
  cc[userlog] := mm;
  cc[sendmail_prompt] := mm;
  cc[sendmail_to] := mm;
  cc[correct3] := mm;
  cc[sendmail_subject] := mm;
  cc[enter_subject] := mm_kill;
  cc[enter_body1] := mm_kill;
  cc[enter_body2] := mm_kill;
  cc[enter_body3] := nada;
  cc[sendmail_menu] := sm;
  cc[sendmail_fork] := sm;
  cc[sendmail_list] := sm;
  cc[sendmail_list2] := sm;
  cc[sendmail_edit1] := sm;
  cc[sendmail_edit2] := sm;
  cc[sendmail_edit3] := sm;
  cc[sendmail_replace1] := sm;
  cc[sendmail_replace2] := sm;
  cc[sendmail_replace3] := sm;
  cc[sendmail_replace4] := sm;
  cc[sendmail_delete1] := sm;
  cc[sendmail_delete2] := sm;
  cc[sendmail_delete3] := sm;
  cc[sending] := nada;
  cc[reply_deletes] := nada;
  cc[sendmail_cancel] := nada;
  cc[mail_gimme1] := nada;
  cc[mail_gimme2] := nada;
  cc[mail_gimme1j] := nada;
  cc[readmail_header] := nada;
  cc[which_msg_menu] := nada;
  cc[which_msg_fork] := nada;
  cc[undelete] := nada;
  cc[fetching] := nada;
  cc[readtext] := nada;
  cc[readmail_menu] := nada;
  cc[readmail_fork] := nada;
  cc[reply1] := rs;
  cc[reply2] := rs;
  cc[reply2a] := rs;
  cc[reply2b] := rs;
  cc[reply2c] := rs;
  cc[reply3] := rs;
  cc[canned1] := canrep;
  cc[canned2] := canrep;
  cc[pubmail1] := nada;
  cc[pubmail2] := pub3;
  cc[pubmail3] := pub3;
  cc[pubmail4] := pub3;
  cc[pubmail4a] := pub3;
  cc[pubmail5] := pub5;
  cc[pubmail6] := pub5;
  cc[pubmail_send1] := pub5;
  cc[pubmail_send2] := pub5;
  cc[pub_rs] := pub5;
  cc[pub_rfb1] := pub5;
  cc[pub_rfb2] := pub5;
  cc[pub_rfb2a] := pub5;
  cc[pub_rfb3] := pub5;
  cc[pub_rfb4] := pub5;
  cc[pub_rfb5] := pub5;
  cc[pub_rfb6] := pub5;
  cc[pubkill] := pub5;
  cc[pubhold] := pub5;
  cc[ordr] := rs;
  cc[ordr1] := rs;
  cc[ordr2] := ordr_close;
  cc[ordr3] := ordr_close;
  cc[ordr4] := ordr_close;
  cc[ordr5] := ordr_close;
  cc[ordr6] := rs_kill;
  cc[bio] := rs;
  cc[bio1] := rs;
  cc[bio2] := bio_close;
  cc[bio3] := bio_close;
  cc[bio4] := bio_close;
  cc[newpass] := mm;
  cc[newpass2] := mm;
  cc[who] := rs;
  cc[maint] := mm;
  cc[snip] := nada;
  cc[cleanup1] := zot;
  cc[cleanup2] := zot;
  cc[cleanup3] := zot;
  cc[cleanup4] := zot;
  cc[dummy] := zot;

value
         {         1         2         3         4         5}
     {12345678901234567890123456789012345678901234567890123456789}
  es1 := 'DLX Bulletin Board System, Version 7.00';
  es2 := 'Written by Richard Gillmann 1985-1994';

END.